home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
net
/
Dialup14.lha
/
Dialup
/
Install
/
Dialup-Install
< prev
next >
Wrap
Text File
|
1995-01-22
|
8KB
|
328 lines
; $VER: Install-MagicCX 1.0 (2.8.94)
; Install script for MagicCX (Workbench 2.1 or higher)
;*************************************************************************
; English strings
;*************************************************************************
(set default_lang 256)
(set #MSG_BADKICK (cat "You must be using Kickstart 2.04 or higher to use Dialup.\n\nAborting!"))
(set #MSG_INSTALL (cat "\nDialup installation script.\nThis script installs Dialup on your Amiga."))
(set #MSG_ICON_TYPE "Which type of icons would you like to install?")
(set #MSG_ICON_MGWB "MagicWB: 8 colors")
(set #MSG_ICON_NORM "Normal : 4 colors")
(set #MSG_DRAWER "Please locate a directory where Dialup will be installed. A directory named \"Dialup\" will be created.")
(set #MSG_CREATE_DIR "\n\nInstalling Dialup to\n\n")
(set #MSG_INSTALL_MAIN "\n\nInstalling main program")
(set #MSG_INSTALL_LANG "Which languages should be installed?")
(set #MSG_INSTALLING "\n\nInstalling ")
(set #MSG_TO " to ")
(set #MSG_REG_USER "\n\nWelcome registered user...\n\nThanks for your support!")
(set #MSG_COPY_LANG "Installing language...")
(set #MSG_DO_INSTALL_DOC "Would you like to install Dialup's documentation?")
(set #MSG_DOC_LANG "Which language do you prefer for the documentation?")
(set #MSG_DO_INSTALL_LIB "Would you like to install version 6.3 of Olaf 'Olsen' Barthel's \"gtlayout.library\"?\n\nDialup need v5.x or higher!")
;*************************************************************************
; German strings
;*************************************************************************
(if (= @language "deutsch")
(
(set default_lang 1)
(set #MSG_BADKICK (cat "Sie müssen Kickstart 2.04 oder höher benutzen, um Dialup zu starten.\n\nAbbruch!"))
(set #MSG_INSTALL (cat "\nDialup Installations Skript.\nDieses Skript installiert Dialup auf Ihrem Amiga."))
(set #MSG_ICON_TYPE "Welche Piktogramme wollen Sie installieren?")
(set #MSG_ICON_MGWB "MagicWB: 8 Farben")
(set #MSG_ICON_NORM "Normal : 4 Farben")
(set #MSG_DRAWER "Wählen Sie ein Verzeichnis, in das Dialup installiert werden soll. Ein Verzeichnis mit dem Namen \"Dialup\" wird dort erstellt.")
(set #MSG_CREATE_DIR "\n\nInstalliere Dialup nach\n\n")
(set #MSG_INSTALL_MAIN "\n\nInstalliere Hauptprogramm")
(set #MSG_INSTALL_LANG "Welche Sprache soll installiert werden?")
(set #MSG_INSTALLING "\n\nInstalliere ")
(set #MSG_TO " nach ")
(set #MSG_REG_USER "\n\nWillkommen registrierter Benutzer...\n\nDanke für Ihre Unterstützung!")
(set #MSG_COPY_LANG "Installiere Sprachunterstützung...")
(set #MSG_DO_INSTALL_DOC "Möchten Sie die Anleitung zu Dialup installieren?")
(set #MSG_DOC_LANG "Welche Sprache bevorzugen Sie für die Anleitung?")
(set #MSG_DO_INSTALL_LIB "Möchten Sie Version 6.3 von Olaf 'Olsen' Barthel's \"gtlayout.library\" installieren?\n\nDialup benötigt v5.x oder höher!")
))
(complete 0)
;*************************************************************************
; Check system we`re running on
;*************************************************************************
(if (< (/ (getversion) 65536) 37)
(
(abort #MSG_BADKICK)
))
;*************************************************************************
; Initial message
;*************************************************************************
(message #MSG_INSTALL)
;*************************************************************************
; Get IconTypes
;*************************************************************************
(set IconType
(askchoice
(prompt #MSG_ICON_TYPE)
(help @askchoice-help)
(choices
#MSG_ICON_MGWB
#MSG_ICON_NORM
)
(default 0)
)
)
(complete 10)
;*************************************************************************
; Get directory where to install MagicCX to
;*************************************************************************
(set DUPBase
(askdir
(prompt #MSG_DRAWER)
(default "RAM:")
(help #askdir-help)
)
)
(set DUPDir (tackon DUPBase "Dialup"))
(complete 20)
;*************************************************************************
; Create Directory
;*************************************************************************
(message (cat #MSG_INSTALLING "\"Dialup\"" #MSG_TO "\"" DUPDir "\"..."))
(makedir DUPDir
(prompt #MSG_CREATE_DIR)
(help @makedir-help)
)
(if (= IconType 0)
(
(copyfiles
(source "/Icons/8/Drawer/Dialup.info")
(dest DUPBase)
)
))
(if (= IconType 1)
(
(copyfiles
(source "/Icons/4/Drawer/Dialup.info")
(dest DUPBase)
)
))
(complete 30)
;*************************************************************************
; Copy main program
;*************************************************************************
(copylib
(prompt #MSG_INSTALL_MAIN)
(help @copylib-help)
(source "/Dialup")
(dest DUPDir)
)
(if (= IconType 0)
(
(copyfiles
(source "/Icons/8/Dialup.info")
(dest DUPDir)
)
))
(if (= IconType 1)
(
(copyfiles
(source "/Icons/4/Dialup.info")
(dest DUPDir)
)
))
(complete 40)
(tooltype
(dest (tackon DUPDir "Dialup"))
(setstack 8192)
(noposition)
)
(tooltype
(dest (tackon DUPBase "Dialup"))
(noposition)
)
(complete 50)
;*************************************************************************
; Install KeyFile
;*************************************************************************
(if (exists "/Dialup.key")
(
(message #MSG_REG_USER)
(copyfiles
(help @copyfiles-help)
(source "/Dialup.key")
(dest DUPDir)
)
))
(complete 60)
;*************************************************************************
; Install Locale
;*************************************************************************
(if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
(
(set Lang
(askoptions
(prompt #MSG_INSTALL_LANG)
(help @askoptions-help)
(choices
"German"
)
(default default_lang)
)
)
(if (IN Lang 0)
(
(working #MSG_COPY_LANG)
(run "/C/LhX x /Locale/Deutsch/Locale LOCALE:")
))
))
(complete 70)
;*************************************************************************
; Install Documentaion
;*************************************************************************
(if
(askbool
(prompt #MSG_DO_INSTALL_DOC)
(help @askbool-help)
)
(
;** Create directory and copy icons
(makedir (tackon DUPDir "Docs"))
(if (= IconType 0)
(
(copyfiles
(source "/Icons/8/Drawer/Docs.info")
(dest DUPDir)
)
(copyfiles
(source "/Icons/8/Dialup.guide.info")
(dest (tackon DUPDir "Docs"))
)
))
(if (= IconType 1)
(
(copyfiles
(source "/Icons/4/Drawer/Docs.info")
(dest DUPDir)
)
(copyfiles
(source "/Icons/4/Dialup.guide.info")
(dest (tackon DUPDir "Docs"))
)
))
(tooltype
(dest (tackon DUPDir "Docs"))
(noposition)
)
(tooltype
(dest (tackon DUPDir "Docs/Dialup.guide"))
(noposition)
)
;** Ask language
(set DocLang
(askchoice
(prompt #MSG_DOC_LANG)
(help @askchoice-help)
(choices
"Deutsch"
"English"
)
(if (= default_lang 256) ( (default 1) )( (default 0) ))
)
)
;** German part
(if (= DocLang 0)
(
(copyfiles
(help @copyfile-help)
(source "/Docs/Dialup-GER.guide")
(dest (tackon DUPDir "Docs")
(newname "Dialup.guide")
))
))
;** English part
(if (= DocLang 1)
(
(copyfiles
(help @copyfile-help)
(source "/Docs/Dialup-ENG.guide")
(dest (tackon DUPDir "Docs")
(newname "Dialup.guide")
))
))
))
(complete 80)
;*************************************************************************
; Install library
;*************************************************************************
(if
(askbool
(prompt #MSG_DO_INSTALL_LIB)
(help @askbool-help)
)
(
(copyfiles
(source "/Libs/gtlayout.library")
(dest "Libs:")
)
))
(complete 100)
(set @default-dest (expandpath DUPDir))